home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat27 / afont / amiga2pc.rexx < prev    next >
OS/2 REXX Batch file  |  1993-02-20  |  960b  |  50 lines
  1. /*
  2.  * Convertion Amiga -> DPaint PC
  3.  * Version 1.00 par Denis GOUNELLE
  4.  * Utilisation : rx Amiga2Pc <nom police Amiga> <nom police DPaint PC>
  5.  */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. /* examine les arguments */
  10. PARSE ARG source dest
  11. IF LENGTH( dest ) = 0 THEN DO
  12.     SAY "Usage: rx Amiga2Pc <nom Amiga> <nom DPaint PC>"
  13.     EXIT 10
  14.     END
  15.  
  16. /* accède au port AREXX de AFont */
  17. IF ~ SHOW( 'P' , 'AFont_rexx' ) THEN DO
  18.     SAY "Vous devez lancer AFont pour utiliser ce programme"
  19.     EXIT 10
  20.     END
  21.  
  22. ADDRESS "AFont_rexx"
  23.  
  24. /* chargement police Amiga */
  25. SAY "Chargement de la police Amiga..."
  26. "SET PCFONT 0"
  27. "OPEN "source
  28. IF RC = 10
  29. THEN DO
  30.     SAY "Impossible d'ouvrir la police !"
  31.     EXIT 10
  32.     END
  33.  
  34. "GET XSIZE"
  35. SAY "Taille en X = "RESULT
  36. "GET YSIZE"
  37. SAY "Taille en Y = "RESULT
  38.  
  39. /* passage format DPaint PC */
  40. "SET PCFONT 1"
  41. SAY "Sauvegarde au format DPaint PC..."
  42. "SAVEAS "dest
  43. IF RC = 10
  44. THEN DO
  45.     SAY "Impossible de sauver la police !"
  46.     EXIT 10
  47.     END
  48.  
  49. SAY "Terminé !"
  50.